home *** CD-ROM | disk | FTP | other *** search
/ CLUB Cyberlesque / CLUB Cyberlesque.iso / mac / INSTALL.DAT < prev    next >
Text File  |  1994-11-23  |  7KB  |  181 lines
  1. /*
  2.  INSTALL.DAT
  3.  
  4.  Project: Club Cyberlesque
  5.  Version: 1.0
  6.  
  7. */
  8.  
  9. @DefineProject
  10.     @Name = "Club Cyberlesque"
  11.     @Version = "1.0"
  12.     @SubDir = "\\cyber" 
  13.     @OutDrive = C
  14.     
  15. @EndProject
  16.  
  17. @DefineVars
  18.     @Integer @cyber       = 16
  19.     @Integer @qtw       = 1408
  20.     @Integer @TSIZE      = @Eval(@cyber+@qtw)
  21.     @Integer @Red        = @RGB(255,0,0)             //DEFINE COLOR RED
  22.     @Integer @Green      = @RGB(0,255,0)             //DEFINE COLOR GREEN
  23.     @Integer @Blue       = @RGB(0,0,255)             //DEFINE COLOR BLUE
  24.     @Integer @Black      = @RGB(0,0,0)               //DEFINE COLOR BLACK
  25.     @Drive @QTWDrive = C
  26.     @Dir @QTWDirectory = "\\QTW\\BIN"
  27.     @Qstring @CDLetter = "@StartupDrive"
  28. @EndVars
  29.  
  30. @BackgroundMode(3,@Blue,@Black)
  31.  
  32.  
  33. @Display@Cls@!This program installs the @Name on your hard drive.  
  34. To continue, choose "OK".     To quit, choose "Cancel".@Pause@Enddisplay
  35.  
  36. @SetOption(1001)  
  37. @SetOption(1002)
  38.  
  39. LOOP:
  40. @BackgroundMode(3,@Blue,@Black)
  41.  
  42.  
  43. @DlgCtrlSize(0,3,5,6,40)  // set coordinates & size of list box
  44. @GetGroups @Checkbox@!Select Programs to install:
  45.   
  46.     @Set S = "Install @Name"
  47.     @Set Q = "Install Quicktime for Windows 1.1" @SetGroup(S) @SetGroup(Q) @EndGroups
  48.  
  49. @If('S' [! @Group)
  50.     @If('Q' [! @Group)
  51.         @Display
  52.         You have not selected any programs to install.        
  53.         @Pause
  54.         @Abort
  55.         @EndDisplay
  56.     @EndIf
  57. @EndIf
  58. NEWDRIVE:  // Goto label for reselecting drive
  59. QTWNEWDRIVE:  // Goto label for reselecting drive
  60.  
  61. //@BackgroundMode(3,@Blue,@Black)
  62.  
  63. @If('Q' [= @Group)
  64. @DlgCtrlSize(0,1,40,12,55)
  65. @GetOutDrive @QTWDrive @Prompt="Choose Quicktime for Windows target drive"@Suppress(0,16) @Suppress(A) @Suppress(B)
  66. Please select the drive where
  67. you wish the Quicktime for Windows 
  68. 1.1 to be installed on your machine.  
  69. Quicktime must be installed properly 
  70. for @name to operate correctly.
  71. Any available drive can be used 
  72. assuming you have access rights to 
  73. the drive you select, and there is 
  74. approximately 1.42 Megabytes available
  75. for installation. @EndOutDrive
  76.  
  77. QTWNEWDIR:
  78. //@BackgroundMode(3,@Blue,@Black)
  79.  
  80.  
  81. @DlgCtrlSize(0,6, 0, 7,35)
  82. @GetSubdir @QTWDirectory @Prompt = "Choose Quicktime for Windows target directory"
  83. Please select the directory you wish
  84. Quicktime for Windows 1.1 to be installed under. @EndSubdir
  85.  
  86. @EndIf
  87.  
  88. @If ('S' [= @Group) @cyber = 16 @Else @cyber = 0 @EndIf //if group not selected zero out
  89. @If ('Q' [= @Group) @qtw = 1408  @Else @qtw =  0 @EndIf //if group not selected zero out
  90.  
  91.  
  92. @TSIZE = @Eval((@cyber+@qtw))   // add selected options' size requirements
  93.  
  94. // if total size > free space, then display
  95. // blue background and set default to loop back and select again.
  96.  
  97. @If(@TSIZE*1024 > @DiskFree(@QTWDrive))
  98. //@BackgroundMode(3,@Blue,@Black)
  99.     @Display
  100.         The drive you have selected does not have
  101.         enough free space available.
  102.         
  103.     @Pause
  104.     @EndDisplay
  105.     @GOTO NEWDRIVE
  106. @EndIf  
  107.  
  108.  
  109. //@BackgroundMode(3,@Blue,@Black)
  110. @SetOption(1600) @ClearOption(1700)
  111.  
  112.  
  113. @DlgCtrlSize(0,8,12,11,35)
  114. @GetOption @Prompt = "Selected files summary"
  115. You have selected to install the following options.
  116.         @If(2200 [= @Option)@name           Will not be copied to hard drive. @Else @If ('S' [= @Group)@name            @cyber@!K @Else@name      WILL NOT BE INSTALLED @EndIf @EndIf
  117.         @If ('Q' [= @Group) Quicktime for Windows    @qtw@!k to @QTWDrive:@QTWDirectory @Else Quicktime for Windows    WILL NOT BE INSTALLED @EndIf
  118.         
  119.         @If ('Q' [= @Group)Space on @qtwDrive: required is @qtw@!k @EndIf
  120.  You may:
  121. @Option 1600 = "CONTINUE"
  122. @Option 1700 = "RESELECT OPTIONS"
  123. @EndOption
  124.  
  125. @if (1700 [= @Option)
  126.     @Goto LOOP
  127. @EndIf
  128.  
  129.  
  130. @DefineDisk
  131. @Label = "Club Cyberlesque"
  132. @File cyber.dll            @OUT @WindowsDrive:\@WindowsDir\*.* @OVERWRITE @Group S @Size 16
  133. @File qtw\mciqtenu.dll      @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 3872
  134. @File qtw\playenu.dll           @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 16592
  135. @File qtw\qthndlr.dll           @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 8272
  136. @File qtw\qtim.dll              @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 214976
  137. @File qtw\qtimcmgr.dll      @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 13712
  138. @File qtw\qtole.dll             @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 72560
  139. @File qtw\qtvhdw.dll            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 15408
  140. @File qtw\viewenu.dll           @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 17408
  141. @File qtw\mciqtw.drv            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 40400
  142. @File qtw\qtnotify.exe          @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 4080
  143. @File qtw\navg.qtc              @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 22912
  144. @File qtw\qcmc.qtc              @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 108400
  145. @File qtw\qtcvid.qtc            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 181968
  146. @File qtw\qtmsvc.qtc            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 7024
  147. @File qtw\qtraw.qtc             @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 6992
  148. @File qtw\qtrle.qtc             @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 92544
  149. @File qtw\qtrpza.qtc            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 200368
  150. @File qtw\qtrt21.qtc            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 58544
  151. @File qtw\qtsmc.qtc             @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 164480
  152. @File qtw\qtyvu9.qtc            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 7376
  153. @file qtw\player.exe            @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 58032
  154. @EndDisk
  155.  
  156. @If ('Q' [= @Group) 
  157.     @SetAutoexec
  158.         @ASKOverwrite
  159.         @Path = "@QTWDrive:\\@QTWDirectory;"
  160.     @EndAutoexec
  161. @EndIf //if group not selected zero out
  162. @Finish
  163.  
  164. @If(@BackgroundMode(3,@Blue,@Black))@EndIf
  165. @Cls
  166.  
  167. @If ('S' [= @Group)
  168.         @ProgramManager("[CreateGroup(Virtually Everything)][AddItem(@CDLetter:\\movies\\cyber.exe, Club Cyberlesque, @WindowsDrive:\\@WindowsDir\\cyber.dll, 0)][AddItem(@StartupDrive:\\read.me, Ignore Me, @WindowsDrive:\\@WindowsDir\\cyber.dll, 1)][ShowGroup(Virtually Everything, 1)]")
  169. @EndIf
  170.  
  171. @Cls @Name @Version is finished installing.  Thank you for your purchase.
  172. @If('Q' [= @Group)
  173. You must reboot your computer for Quicktime for Windows to work. 
  174. @EndIf 
  175. @Pause 
  176. @Exit 
  177. @If(@BackgroundMode(3,@Blue,@Black))
  178. @EndIf 
  179. @EndFinish 
  180. // end-of-file
  181.